home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / ear / fraphix1.lha / FraphiX.LHA / FraphiX / rexx / JoinFrame.rexx < prev    next >
OS/2 REXX Batch file  |  1995-08-16  |  1KB  |  55 lines
  1. /* Questo script ARexx serve per pilotare BuildAnim da Fraphix*/
  2. /* $VER1.0 */
  3.  
  4. if~show("L","rexxsupport.library") then do
  5.    if addlib('rexxsupport.library',0,-30,0) then
  6.       say "Rexxsupport.library caricata"
  7.    else do
  8.       say "Rexxsupport.library non trovata"
  9.       exit 10
  10.    end
  11. end
  12.  
  13. /* Luttura dei parametri passati come variabili dell'AmigaDOS */
  14. open('input','Env:Primo.FX',read)
  15.       primo = readln('input')
  16. close('input')
  17. open('input','Env:Nome.FX',read)
  18.       Nome = readln('input')
  19. close('input')
  20. open('input','Env:Formato.FX',read)
  21.       formato = readln('input')
  22. close('input')
  23. Fraphix_Dir = "Fraphix:"
  24. parametri = primo || " " || nome || " " ||formato
  25.  
  26.  
  27. LF = x2c("a")
  28. if exists("Env:FlagARexx") = 0 then do
  29.        say LF || "Invio messaggio: ATTENDI"
  30.        call delay 50
  31. end
  32. say LF || "Fusione in corso..." || LF
  33.  
  34. comando = Fraphix_Dir || "BuildAnim/BuildAnim " || parametri
  35. /* say comando */
  36. address command comando
  37.  
  38. if exists("Env:FlagARexx") = 0 then do
  39.        say "Invio messaggio: CONTINUA"||LF||"Attesa risposta..."
  40.        call delay 50
  41.  
  42.        address "FRAPHIX"
  43.        options results
  44.        QUIT
  45.  
  46.        if (rc=0) then
  47.              say lf||"Risposta Ricevuta."
  48.             else do
  49.              say lf||"Errore "||rc||lf||result
  50.        end
  51.  
  52. call delay 300
  53. end
  54.  
  55.